home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / yingyang.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1987-05-06  |  338 b   |  18 lines

  1. 10  SCREEN 1,1
  2. 20  COLOR 0,1
  3. 30  KEY OFF
  4. 40  CIRCLE (160,100),80,2,0,3.14
  5. 50  CIRCLE (100,100),20,2,3.14,6.28
  6. 60  CIRCLE (180,100),60,2,0,3.14
  7. 70  PAINT (100,70),3,2
  8. 80  PSET (80,110)
  9. 90  CIRCLE (160,110),80,2,3.14,6.28
  10. 100  CIRCLE (140,110),60,2,3.14,6.28
  11. 110  CIRCLE (220,110),20,2,0,3.14
  12. 120  PAINT (10,11),1,2
  13. 130  LOCATE 1,1
  14. 140  INPUT "Press ENTER to continue-";ANS$
  15. 150  SCREEN 0
  16. 160  WIDTH 80
  17. 170  KEY ON
  18.